home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 2 / Apprentice-Release2.iso / Source Code / Libraries / SAT 2.1.2 / Collision][ ƒ / sMrEgghead][.p < prev   
Encoding:
Text File  |  1994-06-02  |  1.7 KB  |  30 lines  |  [TEXT/PJMM]
  1. { Player sprite for SATcollision][ }
  2.  
  3. unit sMrEgghead;
  4.  
  5. interface
  6.  
  7.     uses
  8.         SAT;
  9.  
  10.     var
  11.         mrEggheadFaces: array[0..3] of FacePtr;
  12.         yuckFace: FacePtr;
  13.  
  14.     procedure InitMrEgghead;
  15.     procedure SetupMrEgghead (me: SpritePtr);
  16.     procedure HandleMrEgghead (me: SpritePtr);
  17.     procedure HitMrEgghead (me, him: SpritePtr);
  18.  
  19. implementation
  20.  
  21.     procedure InitMrEgghead;
  22.         var
  23.             i: integer;
  24.     begin
  25.         for i := 0 to 3 do
  26.             mrEggheadFaces[i] := GetFace(128 + i);
  27.         yuckFace := GetFace(134);
  28.     end;
  29.  
  30.     procedure SetupMrEgghead (me: Spr